home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 25 / 025.d81 / fast sprites (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  87 lines
  1. 0 ifa$="_"thensys64738
  2. 1 print "[147]poking-";
  3. 5 s=49152:e=49520
  4. 6 forp=s toe
  5. 10 read a$
  6. 20 l=asc(mid$(a$,2,1)):t=t+l
  7. 30 h=asc(mid$(a$,1,1)):t=t+h
  8. 40 l=l-48:ifl>9thenl=l-7
  9. 50 h=h-48:ifh>9thenh=h-7
  10. 55 b=h*16+l:ifb>=0andb<256then60
  11. 56 ife=49520thenprint"error in line"int((p-s)/8)+1000:end
  12. 57 print"error in line"int((p-s)/8)+1047:end
  13. 60 print""p;
  14. 70 poke p,b:next
  15. 80 ife=49520thens=12288:e=12350:goto6
  16. 90 ift<>48197thenprint"error in data":stop
  17. 95 print"ok done"
  18. 97 print"[147]press space to see demo or _ to quit"
  19. 98 geta$:ifa$=""then98
  20. 99 ifa$="_"thenload"magic iii",8,1
  21. 100 rem      example program
  22. 110 poke53269,255: rem enable all sprites
  23. 120 fori=2040to2047:pokei,192:next:  rem data from block 192
  24. 130 fori=53287to53294:pokei,rnd(1)*8+1:next:  rem color sprites
  25. 132 poke53281,0: rem screen black
  26. 135 sys49152: rem enable fast/sprite
  27. 136 t=ti:print"[147]hit any key to quit."
  28. 138 getx$:ifx$<>""thengoto160
  29. 140 *0a*1b*2c*3d*4j*5k*6l*7m
  30. 155 goto138
  31. 160 goto97
  32. 1000 data a2,c7,a0,c0,8e,08,03,8c
  33. 1001 data 09,03,60,a9,e4,8d,08,03
  34. 1002 data a9,a7,8d,09,03,60,05,c1
  35. 1003 data 08,c1,11,c1,17,c1,20,c1
  36. 1004 data 23,c1,2c,c1,32,c1,3b,c1
  37. 1005 data 3e,c1,47,c1,4d,c1,56,c1
  38. 1006 data 59,c1,62,c1,68,c1,00,00
  39. 1007 data 01,00,02,00,04,00,08,00
  40. 1008 data 10,00,20,00,40,00,80,fe
  41. 1009 data 00,fd,00,fb,00,f7,00,ef
  42. 1010 data 00,df,00,bf,00,7f,ad,10
  43. 1011 data d0,3d,38,c0,d0,1a,de,00
  44. 1012 data d0,bd,00,d0,c9,ff,f0,01
  45. 1013 data 60,a9,57,9d,00,d0,ad,10
  46. 1014 data d0,1d,38,c0,8d,10,d0,60
  47. 1015 data de,00,d0,bd,00,d0,c9,ff
  48. 1016 data f0,01,60,ad,10,d0,3d,47
  49. 1017 data c0,8d,10,d0,60,fe,01,d0
  50. 1018 data 60,ad,10,d0,3d,38,c0,d0
  51. 1019 data 10,fe,00,d0,f0,01,60,ad
  52. 1020 data 10,d0,1d,38,c0,8d,10,d0
  53. 1021 data 60,fe,00,d0,bd,00,d0,c9
  54. 1022 data 58,f0,01,60,a9,01,9d,00
  55. 1023 data d0,ad,10,d0,3d,47,c0,8d
  56. 1024 data 10,d0,60,de,01,d0,60,20
  57. 1025 data 73,00,08,c9,ac,f0,04,28
  58. 1026 data 4c,e7,a7,28,20,73,00,38
  59. 1027 data e9,30,30,f4,c9,08,10,f0
  60. 1028 data 0a,aa,20,73,00,38,e9,41
  61. 1029 data 30,e6,c9,51,10,e2,0a,a8
  62. 1030 data b9,16,c0,8d,36,c0,b9,17
  63. 1031 data c0,8d,37,c0,20,02,c1,4c
  64. 1032 data c7,c0,6c,36,c0,4c,c3,c0
  65. 1033 data 20,c3,c0,20,91,c0,4c,c3
  66. 1034 data c0,20,c3,c0,4c,91,c0,20
  67. 1035 data 91,c0,20,c3,c0,20,91,c0
  68. 1036 data 4c,91,c0,20,91,c0,20,8d
  69. 1037 data c0,4c,91,c0,20,91,c0,4c
  70. 1038 data 8d,c0,20,8d,c0,20,91,c0
  71. 1039 data 4c,8d,c0,4c,8d,c0,20,8d
  72. 1040 data c0,20,56,c0,4c,8d,c0,20
  73. 1041 data 56,c0,4c,8d,c0,20,56,c0
  74. 1042 data 20,8d,c0,4c,56,c0,4c,56
  75. 1043 data c0,20,56,c0,20,c3,c0,4c
  76. 1044 data 56,c0,20,56,c0,4c,c3,c0
  77. 1045 data 20,c3,c0,20,56,c0,4c,c3
  78. 1046 data c0,00,7f,00,01,ff,c0,03
  79. 1047 data ff,e0,03,e7,e0,07,d9,f0
  80. 1048 data 07,df,f0,07,d9,f0,03,e7
  81. 1049 data e0,03,ff,e0,03,ff,e0,02
  82. 1050 data ff,a0,01,7f,40,01,3e,40
  83. 1051 data 00,9c,80,00,9c,80,00,49
  84. 1052 data 00,00,49,00,00,3e,00,00
  85. 1053 data 3e,00,00,3e,00,00,1c,00
  86. 1054 data end
  87.